home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / xtclock2.zip / SETCLOCK.BAS < prev    next >
BASIC Source File  |  1991-07-30  |  1KB  |  57 lines
  1. 1 REM       Program:     SETCLOCK
  2. 2 REM       Author:      Gerald M. Vrooman
  3. 3 REM       Language:    GWBASIC
  4. 4 REM
  5. 10 REM This program can be used to set  the real time clock  on an  XT
  6. 11 REM clock card using the folowing port addresses:
  7. 12 REM
  8. 13 REM            &h242      Seconds
  9. 14 REM            &h243      Minutes
  10. 15 REM            &h244      Hour
  11. 16 REM            &h246      Day
  12. 17 REM            &h247      Month
  13. 18 REM            &h249      Year
  14. 19  REM For clock cards having different port addresses, the new addresses
  15. 20 REM can be substituted in  line  150 and 160.
  16. 21 REM
  17. 50 CLS
  18. 69 REM
  19. 70 INPUT "enter last two digits of year";N
  20. 71 GOSUB 500
  21. 72 YR = NB
  22. 79 REM
  23. 80 INPUT "enter month";N
  24. 81 GOSUB 500
  25. 82 MO=NB
  26. 89 REM
  27. 90 INPUT "enter day";N
  28. 91 GOSUB 500
  29. 92 DA=NB
  30. 99 REM
  31. 100 INPUT "enter hour";N
  32. 101 GOSUB 500
  33. 102 HO=NB
  34. 109 REM
  35. 110 INPUT "enter minute";N
  36. 111 GOSUB 500
  37. 112 MI=NB
  38. 119 REM
  39. 120 INPUT "enter second";N
  40. 121 GOSUB 500
  41. 122 SE=NB
  42. 145 REM
  43. 146 REM use out  function to set date and time on card
  44. 147 REM
  45. 149 OUT &H249,YR
  46. 150 OUT &H247,MO : OUT &H246,DA
  47. 160 OUT &H244,HO : OUT &H243,MI : OUT &H242,SE
  48. 170 REM
  49. 200 CLS : PRINT "CLOCK IS NOW SET. RUN GETCLOCK.BAS TO SET  DOS TIME AND DATE"
  50. 499 END
  51. 500 REM convert number to  bcd
  52. 510 IF N=0 THEN H%=0  ELSE H% = (N/10) - .5
  53. 511 H = H% * 16
  54. 512 L = N - (H% * 10)
  55. 513 NB = H + L
  56. 515 RETURN
  57.